home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 July / 1992-07.d64 / 40 athletes (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  6KB  |  98 lines
  1. 0 clr:printtab(14);:print"please wait"
  2. 1 fori=1to280:reada:poke49151+i,a:next
  3. 2 dim y(255)
  4. 3 fori=0to255:y(i)=i:next:y(158)=61:y(176)=62:y(183)=63:y(220)=0
  5. 4 q3=262144:q2=4096:q1=64
  6. 5 z1=65536:z8=256
  7. 10 forh=1to63:reada$:fori=1tolen(a$)step4
  8. 20 forj=0to3:a(j)=asc(mid$(a$,i+j,1))-35:a(j)=y(a(j))
  9. 21 next
  10. 30 c=a(0)*q3+a(1)*q2+a(2)*q1+a(3)
  11. 40 a=int(c/z1):c=c-a*z1
  12. 50 b=int(c/z8):c=c-b*z8
  13. 60 poke12992+u,a:poke12992+u+1,b:poke12992+u+2,c:u=u+3
  14. 70 next:next
  15. 100 sys 49152
  16. 102 data 120,169,97,162,192,141,20,3,142,21,3,169,210,141,18
  17. 104 data 208,173,17,208,41,127,141,17,208,169,129,141,26,208,169
  18. 106 data 210,141,255,193,169,50,141,254,193,169,90,141,253,193,169
  19. 108 data 130,141,252,193,169,170,141,251,193,169,255,141,21,208,169
  20. 110 data 50,160,16,153,254,207,105,32,136,136,208,247,169,1,141
  21. 112 data 16,208,162,8,169,12,157,38,208,202,208,250,169,0,141
  22. 114 data 32,208,141,33,208,88,96,173,25,208,141,25,208,48,7
  23. 116 data 173,13,220,88,76,49,234,120,174,255,193,172,251,193,142
  24. 118 data 251,193,174,252,193,140,252,193,172,253,193,142,253,193,174
  25. 120 data 254,193,140,254,193,142,255,193,173,254,193,141,18,208,160
  26. 122 data 16,173,255,193,24,105,5,153,255,207,136,136,208,249,172
  27. 124 data 255,193,162,0,192,90,208,2,162,8,192,130,208,2,162
  28. 126 data 16,192,170,208,2,162,24,192,210,208,2,162,32,160,8
  29. 128 data 189,238,192,153,247,7,232,136,208,246,230,254,165,254,41
  30. 130 data 31,133,254,208,19,160,41,190,237,192,224,249,208,2,162
  31. 132 data 202,232,138,153,237,192,136,208,239,88,76,188,254,203,208
  32. 134 data 213,218,223,228,233,238,243,205,210,215,220,225,230,235,240
  33. 136 data 245,207,212,217,222,227,232,237,242,204,209,214,219,224,229
  34. 138 data 234,239,244,206,211,216,221,226,218,255
  35. 300 data "[255][255][255][255][255][255]'[255][255][255]1[255][255][255]1[255][255]*[[255][255])[[255][255]%_c[255]$[193][255][255][255][211][255][255]$[[255][255]&s[255][255]&_[255][255]&[218][255][255]*&c[255])$c[255])$c"
  36. 310 data "[255][211]$c&s$c/[255][255][255][255][255][255][255][255][255][255][255][255][255][255]$[255][255][255]&c[255][255]&[255][255]$[211][255][255]$q[255][255][255]r+[255][255]b3[255][255]2c[255][255]a[255][255][255]_[255][255][255][218]"
  37. 320 data "[255][255][255][218]s[255]$s[[255]$c;[255]$c;[255]2c;[255]_[255];&[255][255];%[255][255]1%[255][255][255][255][255][255][255][255]c[255][255][255][255][255][255]?[255][255][255]?[255][255]$[[255][255]*s[255][255]"
  38. 330 data ".s[255][255]*e[255][255]*_[255][255]*c[255][255]*[255][255][255]2[255][255][255]2s[255][255]2[[255][255]1?[255];/)[255]z_)[255][255][)[255][255][255])[255][255][255])[255][255][255]&[255][255][255]&cg"
  39. 340 data "[255][255]&[255][255][255]*[255][255][255]=[255][255][255][[255][255][255][[255][255]$[[255][255]$[[255][255]$[[255][255]$[211][255][255]&s[255][255]$[[255][255]$_[255]$t_[255]%1y[255][255]*y[255][255][255]i[255]"
  40. 350 data "[255][255])[255][255][255]'[255][255][255]'[255][255][255])[255][255][255]*c([255][255]&[255][255][255]&[255][255][255]*[255][255][255]?[255][255][255]_[255][255]$_[255][255]$?[255][255]$_[255][255]$][255][255]$[[255][255][255]_"
  41. 360 data "[255][255][255]a[255][255][255]1[255][255]*[218][255][255]'2[255][255][255]/[255][255][255];[255][255][255]3[255][255][255]c[255][255][255]c[255][255]$s[255][255]_[255][255]s[255][255][255]s[255][255][255]s[255][255]*[255][255][255]bc[255][255]"
  42. 370 data "jc[255][255]j[255][255][255]j+[255][255]qs[255][255]q[255][255][255]2c[255][255]2s[255][255]/[[255][255]+[[255][255]2c[255][255];[255][255][255][[255][255]$g[255][255]$[255][255][255]%[255][255][255]*[255][255][255]%"
  43. 380 data "[255][255]/[255][255][255]1[255][255][255]/[255][255]*[[255][255],\c[255],[193][255][255]+z[255][255]+k[255][255][255]s[255][255]$s[255][255]&[211][255][255]&*c[255])$c[255]/$c[255];$[255][255]s&[255]"
  44. 390 data "&c%[255])[255]%[255]/[255]&c'[255][255][255]'[255][255][255]%[255][255][255][255][255][255]&[255][255][255]&c[255][255]&c[255]&[211][255][255]'ac[255]'ac[255]'b[255][255]%b[255][255][255]?[255][255][255]_"
  45. 400 data "[255][255]$[211][255][255]$[218][255][255]$zs[255]$c[[255]&[255];&[211][255];)[255][255];'[255][255]+[255][255][255]+[255][255][255]1[255]3[255][255];[255][255][255]?[255][255][255][[255][255]2c[255][255]:c[255][255]"
  46. 410 data ":c[255][255]:c[255][255]2_[255][255]2c[255][255]*c[255][255]*[255][255][255]*[255][255]/*s[255]b'[[255][255]_/[255][255];/[255][255][255]/[255][255][255]'[255][255][255]'[255][255][255]%[255][255][255]&ce"
  47. 420 data "[255][255]/[255][255][255]1[255][255][255]?[255][255]$s[255][255]&s[255][255]*s[255][255](s[255][255]&s[255][255]&_[255][255]&c[255][255]&c[255][255]ds[255]$ts[255][255]/s[255][255]&[[255][255]$[[255]"
  48. 430 data "[255][255];[255][255][255]3[255][255][255]3[255][255][255]3[255][255][255]?[255]%c[255])[255][255][255]*[255][255][255]1[255][255][255]?[255][255][255]_[255][255]$_[255][255]$_[255][255]$[[255][255]$[218][255][255]$[[255][255]$["
  49. 440 data "[255][255][255]_[255][255]%[211][255][255]&[211][255][255]'b[255][255][255];[255][255][255]s[255][255][255]c[255][255]$c[255][255]&[255][255][255]&c[255][255];[255]$c[255][255]$s[255][255]&c[255][255]*[255][255][255]b[255][255][255]"
  50. 450 data "[218][255][255][255]r/[255][255]bs[255][255]2[255][255][255]a[255][255][255]bc[255][255]b[[255][255];?[255][255];?[255][255]tc[255]$i[255][255]&'[255][255])%[255][255]/[255][255][255]+[255][255][255]/[255][255][255]1"
  51. 460 data "[255]1[255][255][255]1[255][255][255]?[255][255][255]?[255][255][255]a[255][255][255]a[255][255][255]a;[255][255]2s[255][255]2[255][255][255]2[255][255][255]2s[255][255]*[[255][255]&_[255][255][255][211][255][255][255][211][255][255]&o[255]"
  52. 470 data "[255]%/[255][255]%+[255][255][255]+[255][255][255];[255][255][255]?[255][255]c[255][[255][255]$[[255][255]&t[255][255]&[211][255][255]&c[255][255]&s[255][255]&c[255][255]&c[255][255]&[211][255][255]$[218][[255]$s"
  53. 480 data ";[255]$s/[255][255]s([255][255]s)[255][255]s[255][255][255]c[255][255][255]c[255][255][255]c[255][255][255]c[255][255][255]c[255][255][255]s[255][255];[255])[255][255][255]*[255][255][255]b[255][255][255][218][211][255][255][218]c[255][255]"
  54. 490 data "_[255][255][255]_[[255][255][218]_[255][255][218]i[255][255][211]&+[255]?$[[255]?[255]s[255]/[255][255][255]1[255][255][255])[255][255][255]1[255][255][255];[255][255][255];[255][255][255]s[255][255][255]c[255][255][255]c[255][255]1"
  55. 500 data "[255][255][[255][255][255][[255][255]$[[255][255]*_[255][255]2[218]c[255]2q_[255]b[211][255][255]bvg[255]bc_[255]b[255];[255]2[255][255][255]&c[255][255]$c[255][255]&[255][255][255]'[255][255][255];[255][255]"
  56. 510 data "[255]3[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]$c[255]*[255][255][255]*[255][255][255]b[255][255]$[218][211][255]$[218]^c&zc[255]&[218][[255]&[218]/3&y&c$g$[255][255]+"
  57. 520 data "[255][255][255]/[255][255][255]'[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][[255]$c[255][255]&s[255][255]2s[255][255]bs[255][255][218]r[255][255]"
  58. 530 data "[218]s[255][255][211]_[255][255][193]s[255][255][218][[255][255]b;[255][255][255]?[255][255][255]?[255][255][255]&[255][255][255]&c[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255])"
  59. 540 data "[255][255]s[255][255][255][[255][255]$[[255][255]*u[255][255]2[211][255][255]2/[255][255]2a[255][255]2[211][255][255]2y[255][255]2[211]c[255]*[218]c[255][255]2[255][255][255]&[255][255][255]&[255][255][255]$3[255][255]$c"
  60. 550 data "[255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255][255]&c[255])[255][255][255]*[255][255][255]2s[255][255][218];[255]$[218]s[255]&a[255][255]%a[255][255]$a[255][255][255]2[255][255][255]2_[255][255]2"
  61. 560 data "y[255][255]&[211][255][255][255]a[255][255][255])[255][255][255])[255][255][255]*c[255][255]%[255][255][255]%[255][255][255]&3[255][255]$c[255][255][255][255]/[255][255]3[255][255])s[255][255]*c[255][255]2[255][255]&[218][255][255]1"
  62. 570 data "bc[255]+*s[255][255]*s[255][255]&s[255][255]&[[255][255]$_[255][255][255][211][255][255][255]b[255][255][255]*[255][255][255]